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Scilab numbering policy used in this document and the relation to the 
above book. 

Exa Example (Solved example) 

Eqn Equation (Particular equation of the above book) 

AP Appendix to Example (Scilab Code that is an Appednix to a particular 
Example of the above book) 

For example, Exa 3.51 means solved example 3.51 of this book. Sec 2.3 means 
a scilab code whose theory is explained in Section 2.3 of the book. 
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Chapter 1 

Introduction To Data 
Structures 


Scilab code Exa 1.1 To calcualte Average And Deviation 
//Solved Example 1 

//:To calcualte Average And Deviation 

function [avg] = aver age (a) 

i = i ; 

[ j , k] = size (a) ; 
j=0; 

for i=l : k 
j=j+a(i) ; 
end 

avg=j/k; 
dev = 0 ; 

disp ( avg , ” Average =” ) ; 
disp(”The deviations are:”); 
for i=l : k 

dev=a ( i ) -avg ; 
disp ( dev ) ; 
end 

endf unction 

//Calling routine 
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a=[3 223 212 343] 
avg=average (a) 


Scilab code Exa 1.1.4 Decimal form of given no represented variably 
// Exercise 1 . 1 Example . 1 . 1 . 4 

//To calculate Decimal No. of a given Number 
//Treating them as i ) Normal binary nos(ii)Twos 
complemented iii)BCD: 
function [c]=twosl (al) 

[ j 1 , i 1 ] = size ( al ) 
i4 = l 

c = - ( al ( i4 ) *2~(il-l) ) ; 
i 1 = i 1 - 1 ; 
while ( il >=1 ) 
i4=i4+l ; 

c=c+al(i4)*2~(il-l) ; 
i 1 = i 1 — 1 ; 
end 

disp (al Decimal form of the Twos Complement 
Number” ) ; 
disp (c , ” is”) ; 
endf unction 

function [d]=binary_dec(a2) 

[ j 2 , i2] = size (a2) ; 
k = modulo ( i 2 , 4 ) ; 
d = 0 ; 

if (k==0) 
e= i2 /4 ; 
i3 = l 

while ( i3 <= i2 ) 

1=3 
m = 0 

while (1 > = 0 ) 

m=m+(a2(i3)*2~l) ; 
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1 = 1 - 1 ; 
i3=i3+l ; 
end 

if (m>9) 
d = — 1 ; 

disp(” Cannot be coded in this form”) 
break ; 
end 

if (m<=9) 

d=d+m*10~ (e-1) 
e=e - 1 ; 
end 
end 
end 

di sp ( a2 Decimal form of BCD number”); 
disp (d , ” is”) ; 
endf unction 

/ / Given Example : 

//(A) 

pi = Cl o 0 1 1 0 0 1] ; 

p2=base2dec([ '10011001 ’] ,2) 
p2=twos 1 (pi ) 
p2=binary_dec (pi) 

//(b) 

p3= [1 0 0 1]; 
p4 = base2dec([ '1001 ’] ,2) 
p4=twos 1 (p3 ) 
p4=binary_dec (p3) 

//(C) 

p5= [0 0010001000 1]; 
p6 = base2dec([ '000100010001 ’] ,2) 
p6=twos 1 (p5 ) 
p6=binary_dec (p5) 

//(d) 

p7= [0 1110 111]; 
p8 = base2dec([ '01110111 ’ ] ,2) 
p8=twos 1 (p7 ) 
p8=binary_dec (p7) 
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//(e) 

p9= [0 10 10 10 1]; 
pl0 = base2dec([ ’01010101 ’ ] ,2) 
pl0 = twosl ( p 9 ) 
plO=binary_dec (p9) 

//(F) 

pi 1 = [1 0 0 0 0 0 0 1 0 1 0 1] ; 
pl2 = base2dec([ ’100000010101 '] ,2) 
pl2=twosl ( p 1 1 ) 
pl2=binary_dec ( p 1 1 ) 


Scilab code Exa 1.1.5 Add Substract And Multiply binary numbers 

//Exercise 1.1 example 1.1.5 

//Add , Substract And Multiply binary numbers 

function [a]=add(b,c) 
d = base2dec (b ,2) 
e=base2dec (c , 2) 
a = d + e 

a=dec2bin (a) 

disp (a Result of addition”) 
endf unction 

function [a] = subtract (b , c ) 
d=base2dec (b ,2) 
e = base2dec (c , 2) 
a = d-e 

a=dec2bin (a) 

disp (a Result of subtraction”) 
endf unction 

function [a]=multiply(b,c) 
d=base2dec (b ,2) 
e = base2dec (c , 2) 
a = d* e 

a=dec2bin (a) 

d i s p ( a , ” Result of multiplication”); 
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endf unction 
//Calling Routine: 
b = ” 11001” ; 
c = ” 10011” ; 
a=add (b , c ) 
a=sub tract (b , c) 
a=mult iply (b , c ) 


Scilab code Exa 1.1.7 TO Convert Binary To Ternary 

//Exercise 1.1 Example 1.1.7 
//TO Convert Binary To Ternary 

function [t]=bin_ter (a) 
b = 0 

b = base2dec (a , 2) ; 
disp (b) ; 

[ j , i] = size (a) ; 
t=[] ; 

while (b~=0) 

m = modulo (b , 3) ; 
t = [t ( : , : ) m] ; 
b=b/3 ; 

b=b-modulo (b , 10) ; 
end 

disp (t , ” Ternary Equivalent ” ) ; 
endf unction 
//Calling Routine: 
a=” 100101101110” 
disp (a ,” input string is”); 
b=bin_ter (a) 


Scilab code Exa 1.2 String Manipulations 


10 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

1 

2 

3 

4 

5 

6 

7 

8 

9 


//Solved Example 2 
//: String Manipulations 

funcprot (0) 

function [l] = strlen (str) 
i = l; 

1 = 0 ; 

[j ,k] = size(str) 
for i = 1 : k 

l = l + length(str(i)) ; 
end 

disp(l,” string length is”); 
endf unction 
//Calling Routine: 
str = ” Hello World”; 
l = strlen (str) 
function [c]=strcatl (a,b) 

disp(strcat([a b]),” After concatination”); 
c=strcat ( [a b ] ) ; 
endf unction 
//Calling Routine: 
a=” hello ”; 
b = ” world” ; 
c = strcatl (a,b) ; 


Scilab code Exa 1.2.1 Calculate Median And Mode Of an Array 
//Exercise Example 1.2.1 

//Calculates Median And Mode Of an Array 

//(A) 

function [y]=medianl (a) 
p=mtlb_sort ( a) ; 

[ j , i] = size (a) ; 
y = 0 

j =modulo ( i , 2) ; 
if (j= = 0) 
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y=((a(i/2)+a(i/2+l) )/2) ; 
end 

if (j==l) 
i=i/2 ; 

i = i-modulo (i , 10) ; 
y=a ( i+1 ) ; 
end 

disp (y , ” median is”); 
endf unction 

//(B) 

function [z]=model (a) 
p=mtlb_sort ( a) ; 
disp (p) 

q=i ; 

r = 1 ; 

i = i ; 

[j , il] = s ize (a) ; 
if (il >1) 

for i = 1 : i 1 — 1 

if (p(i) ~ = p(i + l) ) 
q= [q ( : , : ) i + 1] ; 
r = [r ( : , : ) 1]; 

else 

[c , d] = size (r) ; 
r (d)=r(d)+l; 
end 
end 

ql=mtlb_sort (r) ; 

[j , il] = size (ql) 
if (ql (il -1) ==ql (il) ) 
z = — 1 ; 

disp (’’Mode does not exist”); 

break ; 
else 

c=ql (il) ; 
k = 1 ; 

while (r (k) ~=c) 
k=k+l ; 
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end 

z=p (q (k) ) ; 
end 
end 

if (il==l) 
z=a ( 1 ) ; 
end 

di sp (z , ” mode is”) ; 
endf unction 
a= [223 12 233322 121] 
y=medianl ( a) ; 
z=raode 1 (a) ; 


Scilab code Exa 1.2.6 Finding the adress in a row major array 

// Exercise 1 . 2 Example 1.2.6 

//Finding the adress in a row major array 

function []=add(m,n) 

printf (” Adress is %d\n” , m+n*20) ; 
endf unction 


//(a) 

add (10 ,0) ; 

//(b) 

add (100 ,0) ; 


add (0,0) ; 

//(d) 

add (2,1); 

//(e) 

add (5,1); 

//(O 

add (1 , 10) ; 

//(§) 

add (2 , 10) ; 
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//(h) 

add (5,3) ; 

// ( i ) 

add (9 , 19) ; 


Scilab code Exa 1.3 Writing name from structure and counting alphabets 
//Solved Example 5: 

//Writing a name from the given structure and 
//counting the number of alphabets printed 

function [l] = strlen(str) 

i = i ; 

1 = 0 ; 

[j ,k] = size(str) 
for i = 1 : k 

l = l + length(str(i)) ; 
end 

endf unction 

function [count]=writenarae (name) 
printf (” \n” ) ; 
printf (” %s” ,name . first) ; 
printf (”%c” , ’ ’); 

printf (” %s” , name. midinit); 
printf (”\t”) ; 
printf (” %s" ,name . last) ; 
printf (” \n” ) ; 

a=string(name . first) ; 
count = str len ( a) ; 
a=string(name .midinit) ; 
count=count+strlen (a) ; 
a=string(name . last) ; 
count=count+strlen (a) ; 
disp ( count Count is:”); 
endf unction 
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//Calling Routine 

name = struct( ’ first ’ , ’ praveen ’ , ’ mi din it 7 , ’rajeev 7 , 7 
last 7 , 7 chauhan 7 ) ; 
count=writename (name) 


Scilab code Exa 1.3.1 Implementing Complex Numbers by structure 

/ / Exercise 1 . 3 
//Example 1.3.1 

//Implementing Complex Numbers by structure 

function []=complexmanu(xl ,x2 ,x3 ,x4) 

coml = struct ( 7 real 7 ,xl , ’complex 7 ,x2) ; 
com2 = struct ( 7 real 7 ,x3 , ’complex 7 ,x4) ; 

//adding 2 numbers 

add = struct( ’real 7 ,xl + x3, ’complex 7 ,x2 + x4) ; 
disp ( add . complex , ”+ i 77 , add . real , 77 Addit ion result 
is 77 ) ; 

/ / Substract 

sub = struct( ’real 7 ,xl-x3, 7 complex 7 ,x2-x4) ; 
disp(sub. complex ,”+ i” , sub. real , 77 Substruction 
result is 77 ); 

/ / Negating 

neg = struct( ’real 7 ,-xl , ’complex 7 ,-x2) ; 
disp (neg . complex , ”+ i 77 , neg . real , 77 Negation result 
for the first is 77 ); 

//Multiplication 

mul = struct( ’real 7 ,xl*x3-x2*x4, ’complex 7 ,x2*x3 + x4* 
xl ) ; 

disp(mul . complex ,”+ i” , mul .real , 77 Multiplication 
result is 77 ) ; 
endf unction 
xl =3 ; 
x2 = 5 ; 
x3 = 5 ; 
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x4 = 6 ; 

complexmanu (xl ,x2 ,x3 ,x4) ; 


Scilab code Exa 1.3.6 Adding Substracting and multiplying Rational Nos 

// Exercise 1 . 3 
//Example 1.3.6 

// Adding , Subtracting and multiplying Rational 
Numbers 

function []=rational (xl ,x2 ,x3 ,x4) 

rationall = struct( ’numerator ’ , xl , ’denominator ’ ,x2) ; 
di sp ( rat ional 1 ) ; 

rational2 = struct ( ’ numerator ’ ,x3 , ’ denominator ’ , x4) ; 
di sp ( rat ional2 ) ; 

//Add 

x5=int32([x2 x4] ) ; 
x5=lcm (x5) ; 

x6=xl*(x5/x2)+x3*(x5/x4) ; 

rational3 = struct( ’numerator ’ ,x6, ’denominator ’ ,x5) ; 
disp(rational3 , ” After addition”) ; 

// subtract 

x6=xl*(x5/x2)-x3*(x5/x4) 

rational4 = struct ( ’ numerator ’ , x6 , ’ denominator ’ , x5) ; 
disp(rational4 , ” After Subtraction”) ; 

//Multiply 
x7=xl *x3 ; 
x8=x2*x4 ; 

rational5 = struct( ’numerator ’ ,x7, ’denominator ’ ,x8) ; 

disp(rational5 .’’After multiplication”) ; 

endf unction 

xl =43 ; 

x2 =32 ; 

x3 = 233 ; 

x4 = 33 ; 

rational (xl ,x2 , x3 ,x4) ; 
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Scilab code Exa 1.3.7 Checking Equality Of 2 Rational Numbers 

/ / Exercise 1 . 3 
/ / Example 1.3.7 

// Checking Equality Of 2 Rational Numbers Without 
Reducing Them 

function []=rational_equal (xl ,x2 ,x3 ,x4) 

rationall = struct( ’numerator ’ ,xl , ’denominator ’ ,x2) ; 

di sp ( rat ional 1 ) ; 

rational2=struct( ’numerator ’ ,x3, ’denominator ’ ,x4) ; 
di sp ( rat ional2 ) ; 
if ( xl *x4==x2 *x3 ) 
disp (” Equal” ) ; 
break ; 
else 

disp (” Not Equal”); 
break ; 
end 

endf unction 

//Calling Routine: 

x 1 =32 ; 

x2 =45 ; 

x3=43; 

x4 = 55 ; 

rational_equal (xl ,x2 ,x3 ,x4) ; 


Scilab code Exa 1.4 Raising the salary of employee 

//Solved Example 6 

//To Raise The salary of an employee 

function [employeel]=raise (employee ,n) // employee is 
the list of employees 
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for i=l : n 

if(employee(i) (1) .year <=2000) 

employee(i) (2)=eraployee(i) (2) * 1 . 1 ; 
else 

employee (i) (2)=employee(i) (2) *1.05; 
end 
end 

employee l=employee ; 
disp(” After Raising”); 
for i=l : n 

printf (” Employee no %d\n”,i); 
disp(employee(i) (1)) ; 
disp(employee(i) (2)) ; 
end 

endf unction 

//Calling Routine: 

datehired = struct( ’year ’ ,1993, ’ month ’ ,12) ; 
employee 1 = li st ( datehired ,14000) ; 
datehired = struct( ’year ’ ,1998, ’ month ’ ,12) ; 
employee2 = list (datehired ,17000) ; 
datehired = struct( ’year ’ ,2003, ’ month ’ ,12) ; 
employee3 = list (datehired ,25000) ; 
datehired = struct( ’year ’ ,2002, ’ month ’ ,12) ; 
employee4 = list (datehired ,35000) ; 
datehired = struct( ’year ’ ,2006, ’ month ’ ,12) ; 
employee5 = list (datehired ,13000) ; 
employee=list (employeel , employee2 , employee3 , 
employee4 , employee5) ; 
employee = raise ( employee ,5) 


Scilab code Exa 1.5 Reducing the given rational number 
//Solved Example 7: 

//Reducing The Given Rational Number 
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funcprot (0) 

function [y]=reduce (nm , dn) 

rationall = struct( ’numerator ’ ,nm , ’denominator ’ , dn) 
y = 0 

if (rationall . numerator >rationall . denominator) 
a=rationall . numerator ; 
b=rationall . denominator ; 
else 

a=rationall . denominator ; 
b=rationall . numerator ; 
end 

while (b ~ = 0) 

rem=modulo(a,b) ; 
a = b ; 
b=rem ; 
end 

y=struct ( ’ numerator ’ , nm/ a , ’ denominator ’ , dn/a) ; 

disp (y) ; 

endf unction 

nm=22 ; 

dn = 44 ; 

y=reduce(nm,dn) 


Scilab code Exa 1.6 Equality check of 2 rational nos by reduction 
//Solved Example 8: 

//Checking for the equality of 2 rational numbers by 
reducing them 

function []= equal (xl , x2 ,x3 ,x4) 

rationall=struct( ’numerator ’ ,xl , ’denominator ’ , x2 ) 
rational2 = struct ( ’ numerator ’ , x3 , ’ denominator ’ , x4) 
y = 0 

if (rationall . numerator >rationall . denominator) 
a=rationall . numerator ; 
b=rationall . denominator ; 
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else 

a=rationall . denominator ; 
b=rationall . numerator ; 
end 

while (b ~ = 0) 

rem=modulo(a,b) ; 
a = b ; 
b=rem ; 
end 

y=struct ( ’ numerator ’ , xl/a , ’ denominator ’ , x2/ a) ; 

yi=o 

if (rational2 . numerator >rational2 . denominator) 
a=rational2 . numerator ; 
b=rational2 . denominator ; 
else 

a=rational2 . denominator ; 
b=rational2 . numerator ; 
end 

while (b ~ = 0) 

rem=modulo (a,b) ; 
a = b ; 
b=rem ; 
end 

yl = struct ( ’ numerator ’ , x3/ a , ’ denominator ’ , x4/ a) ; 

if (y==yl) 

disp (” Equal” ) 
break ; 
else 

disp (” Not Equal”) 
break ; 
end 

endf unction 
xl =5 ; 
x2 =7 ; 
x3 = 35 ; 
x4 =49 ; 

equal (xl , x2 , x3 , x4) ; 
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Chapter 2 
Stacks 


Scilab code Exa 2.1 To determine the syntacticaly valid string 
//Solved Example 1 

//To determine the syntacticaly valid string 

function [l]=strlen(x) 
i = l; 

1 = 0 ; 

[ j , k] = size (x) 
for i = 1 : k 

l = l + length(x(i)) ; 
end 

endf unction 

function [] = stringvalid(str) 
str = string ( str ) ; 
stack = struct( ’a’ , ’0 ’ , ’top ’ ,0) ; 
ll = strlen(str) ; 
valid=l ; 

1 = 1 ; 

while (1<=11 ) 

if (str (1)== ’ ( ’ | str (1)== ’ [ ’ | str (1)== ’{ ’) 
if (stack . top==0) 
stack . a= str ( 1 ) ; 
stack . top=stack . top+1 ; 


21 


22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


else 

stack . a= [ stack . a ) str(l)]; 
stack . top=stack . top+1 ; 
end 
end 

if (str (1) == ’ ) ’ | str (1) == ’ ] ’ | str ( 1 )==’}’ ) 
if (stack . top==0) 
valid=0 ; 
break ; 
else 

i=stack . a(stack . top) ; 
stack . top=stack . top -1 ; 
symb = str ( 1 ) ; 

if (((symb== ’) ’ ) &(i== ’ ( ’ ) ) I ((symb== ’] ’)&(i== 
’ [ ’)) I ( ( symb== ’}’)&( i== ’{’)) ) 

else 

valid=0 ; 
break ; 
end 
end 
end 

1 = 1 + 1 ; 
end 

if (stack . top~=0) 
valid=0 ; 
end 

if ( valid==0) 

d i s p ( ” Invalid String”); 
else 

disp(” Valid String”); 
end 

endf unction 
//Calling Routine: 
str ingval id ( [ ’H ’ ’E’ ’L’ ’L’ ’O’]) 
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Scilab code Exa 2.1.2 To determine the syntacticaly valid string 
//Solved Example 1 

//To determine the syntacticaly valid string 

function [l]=strlen(x) 

i = i ; 

1 = 0 ; 

[ j , k] = size (x) 
for i = 1 : k 

l=l+length(x(i)) ; 
end 

endf unction 

function [] = stringvalid(str) 
str = string ( str ) ; 
stack = struct( ’a’ , ’0 ’ , ’top ’ ,0) ; 
ll = strlen(str) ; 
valid=l ; 

1 = 1 ; 

while (1<=11 ) 

if (str (1)== ’ ( ’ | str (1)== ’ [ ’ | str (1)== ’{ ’) 
if (stack . top==0) 
stack . a=str (1) ; 
stack . top=stack . top+1 ; 
else 

stack . a= [ stack . a (:,: ) str(l)]; 
stack . top=stack . top+1 ; 
end 

disp ( stack) ; 
end 

if (str (1) == ’ ) ’ | str (1) == ’ ] ’lstr(l) ==’}’) 
if (stack . top==0) 
valid=0 ; 
break ; 
else 

i = stack . a(stack . top) ; 
b=stack.a(l) ; 
for i 1 =2 : st ack . top - 1 
b=[b(:,:) stack. a(il)] 
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end 

stack . a=b ; 

stack . top=stack . top -1 ; 
symb = str ( 1 ) ; 
disp ( stack) ; 

if (((symb== ’) ’)&(!== ’(’)) | ( ( symb== ’ ] ’)&(!=’ 
[ ’)) I ( ( symb= ’} ’ ) & ( i = ’ { ’))) 

else 

valid=0 ; 
break ; 
end 
end 
end 

1 = 1 + 1 ; 
end 

if (stack . top~=0) 
valid=0 ; 
end 

if ( valid==0) 

d i s p ( ” Invalid String”); 
else 

disp(” Valid String”); 
end 

endf unct ion 

//Calling Routine: 


stringvalid ( [ ’ ( ’ : 

’A’ 


’B’ 


’) ’]) 


stringvalid ( [ ’ { ’ : 

r 

’A’ 


’B’ 

1 j 1 •) 1 1 J ' 

) 1 

’C’ ’D’ ’) 

? 5 

] ’]) 





stringvalid ( [ ’ ( ’ : 

’A’ 


’B’ 


t 1 ? 5 ’ C ’ 

’+ 

D’ ’} ’ ’ [ ’ 

’F’ 


’G’ 

’] 

’]) 


stringvalid ( [ ’ ( ’ : 


’H’ 


’* ’ 


’J 

+ ’ ’K’ ’ ] ’ ’ ) ’ 



]) 




stringvalid ( [ ’ ( ’ : 



’A’ 


’) ’ ’) ’]) 



Scilab code Exa 2.2 Implementing Stack using union 
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//Solved Example 2: 

//Implementing Stack using union: 

function [stack] =sta_union(etype , a) 
stackelement = struct( ’etype ’ ,etype) ; 
[k , 1] = size (a) ; 
select stackelement . etype , 
case ’ i n t ’ then 
a= int32 ( a) ; 

stack = struct( ’top ’ ,1, ’items ’ ,a) ; , 
case ’float ’ then 
a=double ( a) ; 

stack = struct( ’top ’ ,1, ’items ’ , a) ; , 
case ’ char ’ then 
a= string (a) ; 

stack = struct( ’top ’ ,1, ’items ’ , a) ; , 
end 

disp(stack,” Stack is:”); 
endf unction 

a= [32 12.34 232 32.322] 
st ack= st a.uni on ( ’ f 1 o a t ’,a) 
stack=sta_union( ’ int ’ ,a) 
stack= sta_union ( ’char ’ ,a) 


Scilab code Exa 2.2.3 Check if string is of certain form 
function [l]=strlen(x) 

i = i ; 

1 = 0 ; 

[ j , k] = size (x) 
for i = 1 : k 

l=l+length(x(i)) ; 
end 

endf unction 
function [] = str(st) 

stack = struct( ’a’ ,0, ’top ’ ,0) ; 
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st = string ( st ) ; 

1 = 1 ; 

ll = strlen(st) ; 
symb = st ( 1 ) ; 
valid=l ; 
while (1<11 ) 

while ( symb ~= ’C ’ ) 
if (stack . top==0) 

stack . a=st ( 1 ) ; 
stack . top=stack . top+1 ; 
else 

stack . a= [ stack . a ) st(l)]; 

stack . top=stack . top+1 ; 

end 

1 = 1 + 1 ; 
symb=st (1) ; 
end 

i=st (1+1) ; 
if (stack . top==0) 
valid=0 ; 
break ; 
else 

symbl = stack . a(stack . top) ; 
stack. top=stack. top-1; 
if ( i ~= symb 1 ) 
valid=0 ; 
break ; 
end 
end 

1 = 1 + 1 ; 
end 

if (stack . top~=0) 
valid=0 ; 
end 

if ( valid==0) 

disp(”Not of the given format”); 
else 

disp(” String Of the Given Format”); 
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end 

endf unction 

//Calling Routine: 


st = [ ’A ’ 
str ( st ) 

’A’ 

’B’ 

’A’ 

’C’ 

’A’ 

’B’ 

’A’ ’ 

st = [ ’A’ 
str ( st ) 

’A’ 

’B’ 

’A’ 

’C’ 

’A’ 

’B’ 

’A’ ] 


Scilab code Exa 2.3 Implementing Push And Pop Functions 

//Solved Example 3: 

//Implementing Push And Pop Functions: 

function [y, stal]=empty(sta) 
y=0; 
stal =0 ; 

if ( sta . top= = 0) 
y = 0 ; 
else 
y = l ; 
end 

stal=sta 
endf unction 

function [sta]=push(stac , ele) 
sta=0 ; 

if (empty(stac)==0) 
stac . a= ele ; 
stac . top=stac . top+1 ; 
else 

stac . a= [ stac . a ( : , : ) ele] 
stac ,top=stac .top+1; 
end 

disp ( stac ) ; 
sta=stac ; 
endf unction 
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function [ele , sta]=pop( stack) 
ele= 1 ’ ; 

if (empty(stack)==0) 

disp (” Stack Underflow”) ; 
break ; 
else 

ele = stack . a(stack . top) ; 
stack . top=stack . top -1 ; 
if (stack . top~=0) 
b= stack . a ( 1 ) ; 
for i2=2 : stack . top 

b=[b(:,:) stack . a ( i2 ) ] ; 
end 

stack . a = b ; 
else 

stack . a= ’ 0 ’ ; 
end 
end 

disp ( stack) ; 
sta=stack ; 
endf unction 
global stack 
//Calling Routine: 
stack = struct( ’a’ ,0, ’top ’ ,0) ; 
stack = push ( stack ,4) ; 
stack = push ( stack ,55) ; 
stack = push ( stack ,199) ; 
stack = push ( stack ,363) ; 

[ele , stack]=pop(stack) ; 

disp ( stack ,” After the above operations stack is:”); 


Scilab code Exa 2.4 Convering an infix expression to a Postfix Express 
//Solved Example 5: 
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// Convering an infix expression to 
Expression : 

function [sta]=push(stac , ele) 
sta=0 ; 

if ( stac . top==0) 
stac . a= ele ; 
stac . top=stac . top+1 ; 
else 

stac . a= [ stac . a ( : , : ) ele] 
stac . top=stac .top+1; 
end 

disp ( stac ) ; 
sta=stac ; 
endf unction 

function [ele , sta]=pop( stack) 
ele= ’ — 1 ’ ; 
if (stack . top==0) 

disp (” Stack Underflow”) ; 
break ; 
else 

ele = stack . a(stack . top) ; 
stack. top=stack. top-1; 
if (stack . top~=0) 
b=stack.a(l) ; 
for i2=2 : stack . top 

b=[b(:,:) stack . a ( i2 ) ] ; 
end 

stack . a = b ; 
else 

stack . a= ’ 0 ’ ; 
end 
end 

sta=stack ; 
endf unction 
function [l]=strlen(x) 

i = i ; 

1 = 0; 


Postfix 
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[ j , k] = size (x) 
for i = 1 : k 

l = l + length(x(i)) ; 
end 

endf unction 

function [p]=pre(sl ,s2) 
i 1 =0 ; 


select si , 


case 


then 

i 1 =5 ; 

case 


then 

i 1 =5 ; 

case 

’* ’ 

then 

i 1 =9 

case 

7 ’ 

then 

i 1 =9 ; 

end 




o 

II 

CN 

•H 




select s2 , 


case 


then 

i 2 = 5 ; 

case 


then 

i 2 = 5 ; 

case 

’* ’ 

then 

(?) 

II 

CN 

•H 

case 

7 ’ 

then 

i 2 = 9 ; 

end 




1! 

o 




n 

H- 

M- 

1 

12; 



if ( s 1 

1 

(’) 


P = - 

l; 



end 




if ( s2 

5 

( ’&sl~ 

= 7 ’) 

P = - 

l; 



end 




if ( s 1 

~= ’ 

II 

CN 

U1 

= 7 ’) 


p = l ; 
end 

endf unct ion 

function [a2]=intopo(al , n) 

stack = struct( ’a’ ,0, ’top ’ ,0) ; 

n = i; 

12=strlen(al (1) ) 
for i =2 : n 


30 


77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


12=12+strlen(al (i) ) 
end 

a2 = list () ; 
while (11<=12) 
syrab=al ( 11 ) ; 

if (isalphanura(string(al(ll)))) 
a2=list (a2 , syrab) ; 
else 

while (stack . top~ = 0&(pre (stack . a(stack . top) , 
symb ) >=0) ) 

[topsymb , stack]=pop(stack) ; 
if ( top symb == ’ ) ’ I top symb == ’ ( 7 ) 
a2=a2 ; 
else 

a2=list (a2 , topsymb) ; 
end 
end 

if (stack . top= = 0 I symb ~= ’ ) ’ ) 
stack=push( stack , symb ) ; 
else 

[ele , stack]=pop(stack) ; 
end 
end 

11=11+1 ; 
end 

while (stack . top~=0) 

[topsymb , stack]=pop(stack) ; 
if ( top symb == ’ ) ’ I topsymb== ’ ( ’ ) 
a2=a2 ; 
else 

a2=list (a2 , topsymb) ; 
end 
end 

disp ( a2 ) ; 
endf unction 

//Calling Routine: 

al = [ ’ ( ’ ’2 ’ ’+’ ’3 ’ ’) ’ ’* ’ ’ ( ’ ’5 ’ ’4 ’ ’) ’] 

a2 = intopo(al ,11) 
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Chapter 3 
Recursion 


Scilab code Exa 3.1 Multiplication of 2 numbers 

//Multiplication of 2 numbers 

funcprot (0) 

function [val]=mul(a,b) 
if (b==l) 
val =a ; 
else 

val =a+mul ( a , b - 1 ) ; 
end 

endf unction 
//Calling Routine: 
a=4; 
b = 3 ; 

val =mul (4,3) 

printf (” Product of %d and %d is %d” , a , b , val ) ; 


Scilab code Exa 3.2 Factorial of a number 

//Function To Caluculate factorial of a given 
number 
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function [value] =fact (a) 
value = - 1 ; 
if (a<0 | a>170) 

d i s p ( ” I n v a 1 i d v a 1 u . ” ) ; 
break ; 
else 

if (a==l | a==0) 
value = 1 ; 
else 

value = a*f act (a-1) ; 
end 
end 

endf unction 

//Calling Routine: 

a = 5 ; 

val=f act (a) ; 

printf (”%d factorial is %d”,a,val); 


Scilab code Exa 3.3 Fibbonacci series 

function [fib]=fibbo(n) 
f ib = - 1 ; 
if (n<0) 

disp (” Invalid Entry”); 
else 

if (n< = l ) 
f ib=n ; 
else 

f ib = f ibbo (n-1) +f ibbo (n-2) ; 
end 
end 

endf unction 

function [l]=fibbon(n) 
x = 0 ; 
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1 = ( f ibbo (0) ) ; 
for x=l : n-1 
1= [1 ( : , : ) , f ibbo (x) ] ; 
end 

disp (1) ; 
endf unction 

//Calling Routine: 

n = 5 ; 

l=fibbon(n) 


Scilab code Exa 3.4 Binary Search 

function [b]=bsear (a,l,u,n) 
if ( 1 > u ) 
b = — 1 ; 
else 

mid= int32 ( ( 1+u) /2) ; 
if (n==a (mid) ) 
b = n ; 
else 

if (n>a (mid) ) 

mid= int32 ( ( 1+u) /2) ; 
b=bsear(a,mid+l,u,n) ; 
else 

mid= int32 ( ( 1+u) /2) ; 
b = bsear(a,l , mid - 1 , n) ; 
end 
end 
end 

endf unction 

function [b]=bsearc (a,l , u , n) 
b=bsear (a,l,u,n) ; 
if (b== - 1 ) 

disp (’’The element is not there”); 
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end 

if (b = = n) 

disp(” The element is there”); 
end 

endf unction 

//Calling Routine: 

a= [12 122 3233 12121] //Must be sorted: 
b = bsearc (a, 1 ,4 , 12) 


Scilab code Exa 3.5 Tower Of Hanoi 

function [] =towe (n , f rom , to , aux) 
if (n== 1 ) ; 

disp(to,”to ”, from , ” Move peg 1 from”); 
else 

towe (n-1 , from , aux , to) ; 

disp (to , ” to” , from , ” from” ,n , ” Move Peg” ) ; 

towe (n-1 , aux , to , f rom) ; 
end 

endf unction 

function []=tower (from ,to , aux) 
n= input (” Enter n” ) ; 
towe (n, from, to, aux) ; 
endf unction 

//Calling Routine: 
n = 3//Number of disks 
towe (n, ’a’, ’ b ’ , ’ c ’ ) 


Scilab code Exa 3.6 Prefix To Postfix Conversion 

funcprot (0) 
function [y]=findl (g) 
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lengthl=strlen (g) ; 
if ( lengthl ==0) 
y = 0; 
else 

if(isalphanura(g(l))) 
y = l; 
else 

if ( lengthl <2) 
y = 0 ; 
else 

s=strsplit (g , 1) ; 
s = s (2) ; 
m=f indl (s) ; 
if (m==0 I lengthl ==m) 
y=0; 
else 

e= strsplit (g , m+1 ) ; 
e = e (2) ; 
n = f indl (e) ; 
if (n==0) 
y = 0 ; 
else 

y=m+n+l ; 
end 
end 
end 
end 
end 

endf unction 
function [l]=strlen(x) 

i = i ; 

1 = 0 ; 

[ j , k] = size (x) 
for i = 1 : k 

l = l + length(x(i)) ; 
end 

endf unction 

function [po]=pr2po (pr) 
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lengthl=strlen (pr) ; 
if ( lengthl == 1 ) 

if (isalphanum(pr) ) 
po (1) =pr (1) ; 
else 

d i s p ( ” Invalid string\n”) ; 
end 
else 

s = strsplit (pr , 1) ; 

g = s (2) ; 

m=f indl (g) ; 

s= str spl it (pr , m+ 1 ) ; 

gl = s (2) ; 

n=f indl (gl) ; 

f = strsplit (pr , 1) ; 

c = f (1) ; 

if ( ( c ~= ’+ ’ &c ~ = ’ &c ~ = ’/ ’ & c ~ = ’ * ’ ) | m==0 I n==0 I m + n 
+ 1 ~= lengthl ) 

printf (” Invalid str ing \n” ) ; 
else 

s = strsplit (pr , 1) ; 

s = strsplit(s(2) ,m) ; 

opndl = s ( 1 ) ; 

s=strsplit (pr , m + 1) ; 

opnd2 = s (2) ; 

postl=pr2po (opndl) ; 

post2=pr2po (opnd2) ; 

post=[postl(:,:) post2(:,:)] 

f = strsplit (pr , 1) ; 

c = f (1) ; 

post3=[post(:,:) c] ; 
po=post3 ; 
end 
end 

endf unction 

//Calling Routine: 

sl = ”H — *abcd”;//no spaces between 
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po = pr2po ( si ) ; 

disp (po post fix is”); 

sl = ” H — */H — */ abcdefghi” 

po = pr2po ( si ) ; 

disp (po post fix is”); 


Scilab code Exa 3.7 Simulating Factorial By Non recursion 


function [] = s imu_f act (n) ; 
a = l ; 

while (n>0) 
a=a*n ; 
n=n-l ; 
end 

disp(a,” Factorial is ”); 
endf unction 
//Calling Routine: 
a = 9 

s imu_f act (a) 
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Chapter 4 

Queues and linked list 


Scilab code Exa 4.1 Implementing Singly Connected Linked List 


//SINGLY CONNECTED LINKED LIST : 
function [link2]=append(ele , linkl ) 
1 ink2 = list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


if (linkl (1) (1) . add = = 0) 
linkl (1) (1) ,data = ele; 
linkl (1) (1) . add = l ; 
linkl (1) (1) .nexadd = 0; 

1 ink2 (1) =linkl (1) (1) ; 
else 

if (linkl (1) (1) .nexadd= = 0) 
lin2 = linkl (1) (1) ; 
lin2 . data=ele ; 
lin2.add=linkl(l) (1) . add+1 ; 
linkl (1) (1) ,nexadd=lin2.add; 
lin2 . nexadd=0 ; 

1 ink2 (1) =linkl (1) (1) ; 
link2 (2) =lin2 ; 
else 

lin2 = linkl (1) (1) ; 
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i = l; 

while (linkl(i) (1) . nexadd~=0) 
i=i+l ; 
end 


j = i ; 

lin2 . data=ele ; 

lin2 . add=linkl (i) . add+1; 

lin2 . nexadd=0 ; 

linkl (i) . nexadd=lin2 . add; 

1 ink2 (1) =linkl (1) (1) ; 
i=2; 

while (linkl (i) . nexadd~=lin2 . add ) 
link2(i) = (linkl(i)) ; 
i=i+l ; 
end 

link2(i) = linkl (i) ; 

1 ink2 (i+1) =lin2 ; 
end 
end 

endf unction 

function [link2]=add(ele ,pos , linkl) ; 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = l; 

while (i <=pos ) 

if (linkl (i) . nexadd==0) 
break ; 
else 
i=i+l ; 
end 
end 

if (linkl(i) .nexadd~=0) 
i=i-l ; 

lin2 . data=ele ; 

lin2 . add=i ; 

j = i ; 

while(linkl(j) . nexadd~=0) 
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linkl ( j ) . add =1 ink 1 ( j ) . add+1 ; 
linkl(j) ,nexadd=linkl(j) . nex add+1 ; 

j=j + i; 

end 

linkl(j) . add=linkl(j) .add+1; 
lin2 . nexadd=linkl (i) . add; 
linkl(i-l) . nexadd= 1 in2 . add ; 
k = 1 ; 

while (k<i) 

link2(k)=linkl(k) ; 
k=k+ 1 ; 
end 

link2 (k)=lin2 ; 
k=k+l ; 

link2(k)=linkl(k-l) ; 
k = k + l 
l=k-l ; 
while (k~=j ) 

link2(k) = linkl(l) ; 
k=k+ 1 ; 

1=1+1 ; 
end 

link2(j)=linkl(j-l) ; ; 
link2 ( j +1) =linkl ( j ) ; 
else 

if ( i ==pos& i ~=1 ) 
k = l; 

lin2 . data=ele ; 
lin2.add=linkl(i-l) .add+1; 
linkl (i) . add = linkl (i) . add + 1 ; 
lin2 . nexadd=linkl (i) . add ; 
k = l; 

while (k<pos) 

link2(k)=linkl (k) ; 
k=k+ 1 ; 
end 

link2 (k) =lin2 ; 

1 ink2 (k+1) =linkl (k) 
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end 


if ( i ==pos& i == 1 ) 

link2 = append(ele , linkl) ; 
return link2 ; 
end 
end 

endf unction 

function [link2]=deletel (pos , linkl) 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 

while (i<=pos) 

if ((linkl (i) . nexadd==0) ) 
break ; 
else 

i=i+l ; 
end 
end 

if (linkl (i) . nexadd~ = 0) 

i =i - i ; 
j=i; 

if (i==l) 
j=i; 

while(linkl(j) . nexadd~=0) 
link2(j)=linkl (j) ; 

j=j + i; 

end 

link2(j)=linkl(j) ; 
else 

linkl (i-1) . nexadd=linkl(i+l) .add; 
while ( linkl (j ) . nexadd ~= 1 inkl ( i +1 ) .add) 
link2(j)=linkl(j) ; 

j=j + i; 

end 

if (j ~ = i- l) 

link2(j)=linkl(j) ; 
link 2 ( j +1) = linkl ( j +1) ; 
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k= i + 1 ; 

1 = 2 ; 

else 

link2(j)=linkl(j) ; 
k= i+1 ; 

1 = 1 ; 
end 

while ( linkl (k) .nexadd~=0) 
link 2 (j+l)=linkl (k) ; 
k=k+ 1 ; 

1 = 1 + 1 ; 
end 

link 2 (j+l)=linkl (k) ; 
end 
else 

if ( i==pos ) 

j=i; 

linkl(i-l) .nexadd=0; 
while ( j < = i-l) 

link2(j)=linkl(j) ; 

j=j+i; 

end 

end 

end 

endf unction 


//Calling Routine: 

linkl = struct ( ’data ’ ,0, ’add ’ ,0, ’nexadd ’ ,0) ; / / Creates 
empty list 

linkl= append (4, linkl) 
linkl= append (6 , linkl) 
linkl=add (7 , 2 , linkl) 
linkl= append (8 , linkl) 
linkl=deletel (4, linkl) 

disp ( linkl The linked list after the above 
modifications is:”); 
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Scilab code Exa 4.2 Implementing Queue Operarions 

//Queue Operations 

function [q2]=push(ele ,ql) 
if (ql . rear==ql . front) 
ql . a=ele ; 

ql . rear=ql . rear+1 ; 
else 

ql . a= [ql . a ( : , : ) ele] ; 
ql . rear=ql . rear+1 ; 
end 

q2=ql ; 
endf unction 

function [ele ,q2]=pop(ql) 
ele=-l ; 
q2 = 0 ; 

if (ql . rear==ql . front) 

disp(”Queue Underflow”); 
return ; 
else 

ele=ql . a(ql . rear-ql . front) ; 
ql . front =ql . front+1; 

1 = 1; 

a=ql . a(l) ; 

for i =2 : ( ql . rear -ql . f ront ) 
a= [a ( : , : ) ql . a(i) ] ; 
end 

ql . a=a ; 
end 

q2=ql ; 
endf unction 

//Calling Routine: 

ql = struct(’a’ ,0, ’rear ’ ,0, ’front ’ ,0) 
ql =push (3 , ql ) 
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ql = push (22 , ql ) ; 
ql =push (2 1 , ql ) ; 

disp (ql ,” Queue after insertion”); 

[ele , ql ] = pop (ql ) 

di sp ( ele poped element”); 

disp (ql ,” Queue after poping”); 

[ele , ql ] =pop (ql ) ; 

[ele , ql ] =pop (ql ) ; 

[ele ,ql]=pop(ql) ; //Underflow Condition 


Scilab code Exa 4.3 Implementing Circular Linked List 


//CIRCULAR LINKED LIST 
function [link2]= append (ele , linkl) 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


if (linkl (1) (1) . add = = 0) 
linkl (1) (1) ,data = ele; 
linkl (1) (1) . add=l ; 
linkl (1) (1) . nexadd = l ; 

1 ink2 (1) =linkl (1) (1) ; 
else 

if (linkl (1) (1) ,nexadd==linkl (1) (1) .add) 
lin2 = linkl (1) (1) ; 
lin2 . data=ele ; 
lin2 . add = linkl (1) (1) . add + 1 ; 
linkl (1) (1) ,nexadd=lin2.add; 
lin2.nexadd=linkl(l) (1) . add ; 

1 ink2 (1) =linkl (1) (1) ; 
link2 (2) =lin2 ; 
else 

lin2 = linkl (1) (1) ; 

i = i ; 

while(linkl(i) (1) ,nexadd~=linkl(l) (1) .add) 
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i=i+l ; 
end 


j = i ; 

lin2 . data=ele ; 
lin2 . add=linkl (i) . add+1; 
lin2.nexadd=linkl(l) (1) . add ; 
linkl (i) . nexadd=lin2 . add; 

1 ink2 (1) =linkl (1) (1) ; 
i=2; 

while (linkl (i) . nexadd~=lin2 . add ) 
link2(i) = (linkl(i)) ; 


i=i+l ; 
end 

link2(i) = linkl (i) ; 
link 2 (i+1) =lin2 ; 
end 
end 

endf unction 

function [link2]=add(ele ,pos , linkl) ; 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 

while (i <=pos ) 

if (linkl (i) . nexadd==linkl (1) (1) . add) 
break ; 
else 
i=i+l ; 
end 
end 

if (linkl (i) . nexadd~=linkl(l) (1) .add) 

i = i - 1 ; 

lin2 . data=ele ; 
lin2 . add=i ; 

j = i ; 

while(linkl(j) ,nexadd~=linkl(l) (1) .add) 
linkl (j ) . add = linkl ( j ) . add+1 ; 
linkl (j) ,nexadd=linkl(j) . nex add+1 ; 
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j=j + i; 

end 

linkl(j) . add=linkl(j) .add+1; 
lin2 . nexadd=linkl (i) . add; 
linkl(i-l) ,nexadd=lin2.add; 
k = l; 

while (k<i) 

link2(k)=linkl(k) ; 
k=k+ 1 ; 
end 

link2 (k)=lin2 ; 
k=k+l ; 

1 ink2 (k) = linkl (k-1) ; 
k = k + l 
1 =k — 1 ; 
while (k~=j ) 

link2(k) = linkl(l) ; 
k=k+ 1 ; 

1 = 1 + 1 ; 
end 

link2(j)=linkl(j-l) ; ; 
link2 ( j +1) =linkl (j ) ; 
else 

if (i==pos) 
k = l; 

lin2 . data=ele ; 
lin2.add=linkl(i-l) . add+1 ; 
linkl (i) . add = linkl (i) . add + 1 ; 
lin2 . nexadd=linkl (i) . add ; 
linkl (i) . nexadd=linkl (1) (1) . add; 
k = l; 

while (k<pos) 

link2(k)=linkl (k) ; 
k=k+ 1 ; 
end 

link2 (k) =lin2 ; 

1 ink2 (k+1) =linkl (k) 
end 
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end 


endf unction 

function [link2]=deletel (pos , linkl) 
1 ink2 = list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 
j = 1; 

while (i<pos) 

if ((linkl (j) .nexadd==linkl(l) (1) .add)) 

j=i; 

i=i+l ; 
else 

i=i+l ; 

j=j+i ; 

end 

end 

if (linkl (j) ,nexadd~=linkl(l) (1) .add) 
k = 1 ; 

if (j==l) 
k = 2 ; 

while (linkl (k) ,nexadd~=linkl(l) (1) .add) 
1 ink2 (k-1) =linkl (k) ; 
k=k+ 1 ; 
end 

link2(k-l)=linkl (k) ; 
link2(k-l) ,nexadd=link2(l) .add; 
else 

lin2=linkl ( j ) ; 

linkl(j-l) ,nexadd=linkl(j+l) .add; 
k = l; 

while (linkl (k) ,nexadd~=linkl(j+l) .add) 
link2(k)=linkl (k) ; 
k=k+ 1 ; 
end 

link2(k)=linkl (k) ; 
k=k+2 ; 
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while (linkl(k) . nexadd~=linkl(l) (1) .add) 
link2(k-l)=linkl (k) ; 
k=k+ 1 ; 
end 

link2(k-l)=linkl(k) ; 
end 
else 

linkl(j-l) ,nexadd=linkl(l) (1) . add ; 

1 = 1 ; 

while (link 1(1) ,nexadd~=linkl(l) (1) .add) 
link2 (1) =linkl (1) ; 

1 = 1 + 1 ; 
end 

link2 (1) =linkl (1) ; 
end 

endf unction 

//Calling Routine: 

linkl=struct ( ’data ’ ,0, ’add ’ ,0, ’nexadd ’ ,0) ; 
linkl = append (4 , linkl ) ; //This will actualy create a 
list and 4 as start 
linkl= append (6 , linkl) ; 
linkl=add (10 ,2 , linkl) ; 

1 inkl = delete 1 (4 , linkl );// As the list is circular the 
4’th element refers to actualy the 1 ’ st one 
disp ( linkl ,” After the above manuplations the list is 
”) ; 


Scilab code Exa 4.4 Implementing Doubly connected Linked List 


//DOUBLE LINKED LIST: 
function [link2]=append(ele , linkl) 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


if (linkl (1) (1) . add = = 0) 


50 


5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


link 1(1) (1) . dat a=ele ; 
linkl (1) (1) . add = l ; 
linkl (1) (1) . nexadd=0 ; 
linkl (1) (1) . prevadd=0; 

1 ink2 (1) =linkl (1) (1) ; 
else 

if (linkl (1) (1) . nexadd==0) 
lin2 = linkl (1) (1) ; 
lin2 . data=ele ; 
lin2.add=linkl(l) (1) .add+1; 
link 1(1) (1) . nexadd=lin2.add; 
lin2 . nexadd=0 ; 

lin2.prevadd=linkl(l) (1) .add; 

1 ink2 (1) =linkl (1) (1) ; 
link2 (2) =lin2 ; 
else 

lin2 = linkl (1) (1) ; 

1 = 1; 

while (linkl (i) (1) .nexadd~ = 0) 
i=i+l ; 
end 

j = i ; 

lin2 . data=ele ; 

lin2 . add=linkl (i) . add+1; 

lin2 . nexadd=0 ; 

linkl (i) . nexadd=lin2 . add; 

lin2 . prevadd=linkl (i) . add; 

1 ink2 (1) =linkl (1) (1) ; 
i=2; 

while (linkl (i) . nexadd~ = lin2 . add) 
link2(i) = (linkl(i)) ; 
i=i+l ; 
end 

link2(i) = linkl (i) ; 
link2 (i+1) =lin2 ; 
end 
end 

endf unction 
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function [link2]=add(ele , pos , linkl) ; 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = l; 

while (i <=pos ) 

if (linkl (i) . nexadd==0) 
break ; 
else 

i=i+l ; 
end 
end 

if (linkl(i) .nexadd~=0) 

i =i - i ; 

lin2 . data=ele ; 
lin2 . add=i ; 

j = i ; 

while(linkl(j) . nexadd~=0) 

linkl (j) ,prevadd=linkl(j) .prevadd+1; 

linkl (j ) . add = linkl ( j ) . add+1 ; 

linkl (j) ,nexadd=linkl(j) . nex add+1 ; 

j=j+i; 

end 

linkl(j) . prevadd=linkl(j) .prevadd+1; 
linkl(j) ,add=linkl(j) .add+1; 
lin2 . nexadd=linkl (i) . add; 
linkl (i) . prevadd=lin2 . add; 
lin2.prevadd=linkl(i-l) . add ; 
linkl(i-l) ,nexadd=lin2.add; 
k = l ; 

while (k<i) 

link2(k)=linkl(k) ; 
k=k+ 1 ; 
end 

link2 (k) =1 in2 ; 
k=k+l ; 

link2(k)=linkl(k-l) ; 
k = k + l 
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l=k-l ; 
while (k~= j ) 

link2(k) = linkl(l) ; 
k=k+ 1 ; 

1 = 1 + 1 ; 
end 

link2(j)=linkl(j-l) ; ; 
link2 ( j +1) =linkl ( j ) ; 
else 

if (i==pos) 
k = l; 

lin2 . data=ele ; 

1 in2 . add= 1 inkl ( i - 1 ) . add+1 ; 
linkl(i) . add=linkl(i) .add+1; 
lin2 . nexadd=linkl (i) . add ; 
linkl (i) . prevadd=lin2 . add; 
lin2 ,prevadd=linkl ( i — 1 ) . add; 
k = l; 

while (k<pos) 

link2(k)=linkl (k) ; 
k=k+l ; 
end 

link2 (k) =lin2 ; 

1 ink2 (k+1) =linkl (k) 
end 
end 


endf unction 

function [link2]=deletel (pos , linkl) 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 

while (i<=pos) 

if ((linkl (i) . nexadd==0) ) 
break ; 
else 

i = i + 1 ; 
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end 

end 

if (linkl (i) . nexadd~ = 0) 
i=i-l ; 

j=i; 

if (i==l) 
j=i; 

while(linkl(j) . nexadd~=0) 
link2(j)=linkl(j) ; 

j=j + i; 

end 

link2(j)=linkl(j) ; 
else 

linkl(i-l) . nexadd=linkl (i+1) .add; 
linkl(i+l) . prevadd= 1 inkl ( i - 1 ) .add; 
while (linkl (j) ,nexadd~=linkl(i+l) . add ) 
link2(j)=linkl(j) ; 

j=j + i ; 

end 

if ( j ~ = i-l) 

link2(j)=linkl(j) ; 
link 2 (j+1) = linkl ( j +1) ; 
k= i+1 ; 

1 = 2 ; 

else 

link2(j)=linkl (j) ; 
k=i+l ; 

1 = 1 ; 

end 

while ( linkl (k) .nexadd~=0) 
link 2 (j+l)=linkl (k) ; 
k=k+ 1 ; 

1 = 1 + 1 ; 

end 

link 2 (j+l)=linkl (k) ; 
end 
else 

if ( i==pos ) 
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j=i; 

linkl(i-l) .nexadd=0; 
while ( j < = i-l) 

link2(j)=linkl(j) ; 

j=j + i; 

end 

end 

end 

endf unction 

//Calling Routine: 

linkl=struct ( ’data ’ ,0, ’add ’ ,0, ’ nexadd ’ ,0) ; 
linkl=append(4, linkl) ; 
linkl= append (6 , linkl) ; 
linkl=add(10,2,linkl) ; 
linkl=deletel (3, linkl) ; 

disp ( linkl ,” After the above manuplations the list is 

”) ; 


Scilab code Exa 4.5 Implementing Stack using circular Linked list 


//STACK USING CIRCULAR LINKED LIST 
funcprot (0) 

function [link2]=append(ele , linkl) 

1 ink2 = list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


if (linkl (1) (1) . add = = 0) 
linkl (1) (1) ,data = ele; 
linkl (1) (1) . add = l ; 
linkl (1) (1) ,nexadd = l; 

1 ink2 (1) =linkl (1) (1) ; 
else 

if (linkl (1) (1) ,nexadd==linkl (1) (1) .add) 
lin2 = linkl (1) (1) ; 
lin2 . data=ele ; 
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lin2 . add = linkl (1) (1) . add + 1; 
linkl(l) (1) . nexadd=lin2.add; 
lin2.nexadd=linkl(l) (1) . add ; 

1 ink2 (1) =linkl (1) (1) ; 
link2 (2) =lin2 ; 
else 

lin2 = linkl (1) (1) ; 

i = l ; 

while (linkl(i) (1) . nexadd~=linkl(l) (1) .add) 
i=i+l ; 
end 


j = i ; 

lin2 . data=ele ; 
lin2 . add=linkl (i) . add+1; 
lin2.nexadd=linkl(l) (1) . add ; 
linkl (i) . nexadd=lin2 . add; 

1 ink2 (1) =linkl (1) (1) ; 

1 = 2 ; 

while (linkl (i) . nexadd~ = lin2 . add) 
link2(i) = (linkl(i)) ; 
i=i+l ; 
end 

link2(i) = linkl (i) ; 

1 ink2 ( i +1 ) = 1 in2 ; 
end 
end 

endf unction 

function [link2]=add(ele ,pos , linkl) ; 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 

while (i <=pos ) 

if (linkl (i) ,nexadd = =linkl (1) (1) . add) 
break ; 
else 
i=i+l ; 
end 
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end 

if(linkl(i) . nexadd~=linkl(l) (1) .add) 

i = i - 1 ; 

lin2 . data=ele ; 
lin2 . add=i ; 

j = i ; 

while(linkl(j) ,nexadd~=linkl(l) (1) .add) 
linkl ( j ) . add =1 ink 1 ( j ) . add+1 ; 
linkl(j) ,nexadd=linkl(j) . nex add+1 ; 

j=j + i; 

end 

linkl(j) ,add=linkl(j) .add+1; 
lin2 . nexadd=linkl (i) . add; 
linkl (i-1) ,nexadd=lin2.add; 
k = 1 ; 

while (k<i) 

link2(k)=linkl(k) ; 
k=k+ 1 ; 
end 

link2 (k)=lin2 ; 
k=k+l ; 

link2(k)=linkl(k-l) ; 
k = k + l 
l=k-l ; 
while (k~= j ) 

link2(k) = linkl(l) ; 
k=k+ 1 ; 

1=1+1 ; 
end 

link2(j)=linkl(j-l) ; ; 
link2 ( j +1) =linkl ( j ) ; 
else 

if (i==pos) 
k = l; 

lin2 . data=ele ; 
lin2.add=linkl(i-l) . add+1 ; 
linkl (i) . add = linkl . add + 1; 
lin2 . nexadd=linkl (i) . add ; 
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linkl (i) . nexadd=linkl (1) (1) . add; 
k = l; 

while (k<pos) 

link2(k)=linkl (k) ; 
k=k+l ; 
end 

link2 (k) =lin2 ; 

1 ink2 (k+1) =linkl (k) 
end 
end 


endf unction 

function [link2]=deletel (pos , linkl) 
1 ink2 = list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i ; 

if (linkl (1) (1) . add = = 0) 
d i s p ( ” Invalid”) ; 
else 

if (linkl (1) (1) . nexadd==linkl(l) (1) .add) 
linkl (1) (1) . add = 0 ; 
linkl (1) (1) .nexadd = 0; 
linkl (1) (1) .data = 0; 

1 ink2 (1) =linkl (1) (1) ; 
else 

while (i<=pos) 

if ((linkl (i) .nexadd==linkl(l) (1) .add)) 
break ; 
else 

i=i+l ; 
end 
end 

if (linkl (i) ,nexadd~=linkl(l) (1) .add) 

i =i - i ; 

j=l; 

if (i==l) 
j =i ; 


58 


124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 


while(linkl(j) . nexadd~=linkl(l) (1) .add) 
link2(j)=linkl(j) ; 

j=j + i; 

end 

link2(j)=linkl (j) ; 
else 

linkl(i-l) ,nexadd=linkl(i+l) .add; 
while (linkl(j) .nexadd~=linkl(i+l) . add ) 
link2(j) = linkl(j) ; 

j=j + i ; 

end 

if ( j ~ = i -1) 

link2(j)=linkl(j) ; 
link2(j+l)=linkl (j+1) ; 
k=i+l ; 

1 = 2 ; 

else 

link2(j) = linkl(j) ; 
k= i + 1 ; 

1 = 1 ; 

end 

while (linkl(k) ,nexadd~=linkl(l) (1) .add) 
link2 (j+l)=linkl (k) ; 
k=k+ 1 ; 

1 = 1 + 1 ; 

end 

link 2 (j+l)=linkl (k) ; 
end 
else 

if ( i==pos ) 

j=i; 

linkl(i-l) ,nexadd=linkl(l) (1) .add; 
while ( j < = i-l) 

link2(j)=linkl(j) ; 

j=j+i; 

end 

end 

end 
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end 

end 

endf unction 

function [sta]=push(ele , stack) 
if (stack . top==0) 
stack . a=ele ; 
stack . top=stack . top+1 ; 
sta= stack ; 
else 

i = l ; 

linkl=struct(’data’,0, ’ add ’ , 0 , ’ nexadd 0) ; 
while (i<=stack . top) 

1 inkl = append ( st ack . a ( i ) ,linkl) ; 
i=i+l ; 
end 

linkl = append(ele , linkl) ; 
stack . top=stack . top+1 ; 

a=[stack.a(: , :) linkl(stack.top) .data] ; 
stack . a=a ; 
sta= stack ; 
end 

endf unction 

function [ele , sta]=pop( stack) 
ele=-l ; 
sta=0 ; 

if (stack . top==0) 

disp(” Stack Underflow”); 
return ; 

else 

i = i ; 

linkl=struct(’data’,0, ’ add ’ , 0 , ’nexadd’ ,0); 
while (i<=stack . top) 

1 inkl = append ( stack . a ( i ) , linkl) ; 
i=i+l ; 
end 

ele=linkl (stack. top) .data; 
linkl = deletel (stack. top , linkl) ; 
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stack . top=stack . top -1 ; 
i =2 ; 

a=linkl(l) (1) .data 
while (i<=stack . top) 

a=[a(:,:) linkl ( i ) . data] ; 
i=i+l ; 
end 

stack . a=a ; 
sta= stack ; 
end 

endf unction 

function [stack] =empty() 

stack = struct( ’a’ ,0, ’top ’ ,0) ; 
endf unction 

//Calling Routine: 

stack = erapty ()// Create an empty stack 

stack = push(4, stack) ; 
stack = push(55, stack) ; 
stack=push (199 , stack) ; 
stack=push (363 , stack) ; 

[ele , stack]=pop(stack) ; 

disp ( stack ,” After the above operations stack is:”); 


Scilab code Exa 4.6 Implementing Priority Queue Using Lists 


//Implementing Priority Queue Using Lists 

funcprot (0) 

function [link2]=insert_pri (ele , linkl) 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


) 

if (linkl (1) (1) . add = = 0) 
linkl (1) (1) ,data = ele; 
linkl (1) (1) . add = l ; 
linkl (1) (1) ,nexadd = l; 
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1 ink2 (1) =linkl (1) (1) ; 
else 

if (link 1(1) (1) .nexadd==linkl(l) (1) .add) 
if ( ele >= 1 inkl ( 1 ) (1) .data) 
t = ele ; 

p=linkl(l) (1) .data; 
else 

t=linkl(l) (1) .data; 
p=ele ; 
end 

link 1(1) (1) ,data=t; 
lin2 = linkl (1) (1) ; 
lin2 . data=p ; 
lin2 . add=2 ; 

lin2.nexadd=linkl(l) (1) . add ; 
link 1(1) (1) ,nexadd=lin2.add; 

1 ink2 (1) =linkl (1) (1) ; 
link2 (2) =lin2 ; 
else 
i = l; 
a= [] ; 

while (linkl (i) ,nexadd~=linkl(l) (1) .add) 
a= [a ( : , :) linkl(i) .data] ; 
i=i+l ; 
end 

a=[a(:,:) linkl ( i ). data] ; 
a=gsort ( a) ; 

j=i; 

while ( j <=i ) 

linkl (j) ,data = a(j) ; 

j=j+i; 

end 
k = l; 

while ( linkl (k) ,data>=ele) 

if (linkl (k) ,nexadd==linkl (1) (1) . add) 
break ; 
else 

link2(k)=linkl (k) ; 
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k=k+l ; 
end 
end 

if(linkl(k) . nexadd~=linkl(l) (1) .add) 
lin2=linkl (k) ; 
lin2 . data=ele ; 
lin2 . add=linkl (k) . add; 

j=k; 

y=linkl(l) (1) .add; 
while (linkl(k) ,nexadd~=y) 

linkl (k) . add=linkl (k) . add+1; 
linkl (k) . nexadd=linkl (k) . nexadd+1 ; 
k=k+ 1 ; 
end 

linkl (k) . add=linkl (k) . add+1 ; 
lin2.nexadd=linkl(j) . add ; 
link2 ( j ) =lin2 ; 

j=j+i; 

while ( j < = k + l) 

link2(j)=linkl(j-l) ; 

j=j + i; 

end 

else 

lin2=linkl (k) ; 
lin2 . data=ele ; 

lin2.nexadd=linkl(l) (1) .add; 
lin2 . add=linkl (k) . add+1; 
linkl (k) . nexadd=lin2 . add ; 

j =1 ; 

while ( j < = k) 

link2(j) = linkl (j) ; 

j=j + i; 

end 

link2 ( j ) =lin2 ; 
end 
end 
end 

endf unction 
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function [ele ,link2]=extract_min(linkl) ; 
link2=list 


( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , , 0 , 0 ) 


i = i; 

ele=-l ; 

if ( linkl (1) (1) . add = = 0) 
disp(” Underflow”) ; 
return ; 
else 

if (linkl (1) (1) .nexadd==linkl(l) (1) .add) 
linkl (1) (1) . add = 0 ; 
linkl (1) (1) .nexadd = 0; 
ele=linkl(l) (1) .data; 
linkl (1) (1) .data = 0; 

1 ink2 (1) =linkl (1) (1) ; 
else 

i = i ; 

while (linkl (i) ,nexadd~=linkl(l) (1) .add) 
link2(i)=linkl(i) ; 
i=i+l ; 
end 

ele=linkl (i) . data; 
link2(i-l) . nexadd = 1 ink2 ( 1 ) .add; 
end 
end 

endf unction 

//Calling Routine: 

linkl = struct( ’data ’ ,0, ’ add ’ , 0 , ’ nexadd ’ ,0) ; 
linkl=insert_pri (3, linkl) ; 
linkl=insert_pri (4, linkl) ; 
linkl=insert_pri (22 , linkl) ; 
linkl = insert_pri (21 , linkl) ; 
linkl = insert_pri (11 , linkl) ; 
disp(linkl,”List After Insertions”); 

[ele , linkl]=extract_min(linkl) 

disp (ele ,” Element after the min extraction”); 
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Chapter 5 
Trees 


Scilab code Exa 5.1 Implementing Binary Tree 


funcprot (0) ; 

function [tree]=maketree (x) 
tree = zeros (30 , 1) ; 
for i =1 : 30 
tree ( i ) = — 1 ; 
end 

tree ( 1 ) =x ; 
tree (2) = -2 ; 
endf unction 

function [treel]=setleft (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j=i ; 

end 

i=i+l ; 
end 

if (i>2* j ) 

tree (2* j ) =x ; 
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else 

tree (2* j ) =x ; 
tree (2* j +1) =-2 ; 
for l=i : 2* j -1 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [treel]=setright (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if (i>2* j +1) 

tree (2* j +1) =x ; 
else 

tree (2* j +1) =x ; 
tree (2* j +2) =-2 ; 
for l=i:2*j 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [x]=isleft (tree , tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 
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if (i>=2* j ) 

if ((tree (2*j) ~=- 1) | (tree (2*j) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 

function [x]=isright (tree ,tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if ( i > = 2* j +1 ) 

if ((tree (2* j +1) ~=-l) | (tree (2* j +1) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 
//Calling Routine: 
tree = maketree (3) ; 
disp (tree Tree made”); 
tree = setleft (tree ,3 , 1) ; 

disp(tree,” After setting 1 to left of 3”); 
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tree=setright (tree ,3,2) ; 

disp(tree,” After setting 2 to right of 3”); 

tree=setright (tree ,2 ,4) ; 

tree = setleft (tree ,2,5) ; 

tree = setright (tree ,1 ,6) ; 

tree = setright (tree ,5,8) ; 

disp (tree ,” After above operations:”); 

x=isright (tree ,3) ; 

di sp (x ,” Checking for the right son of 3 yes if 1 
else no” ) ; 

x=islef t (tree ,2) ; 

disp (x,” Check for left son of 2”); 


Scilab code Exa 5.2 Tree Trversal Techniques 
funcprot (0) ; 

function [tree]=maketree (x) 
tree = zeros (30 , 1) ; 
for i =1 : 30 
tree ( i ) = — 1 ; 
end 

tree ( 1 ) =x ; 
tree (2) = -2 ; 
endf unction 

function [treel]=setleft (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j=i ; 

end 

i=i+l ; 
end 

if (i>2* j ) 

tree (2* j ) =x ; 
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else 

tree (2* j ) =x ; 
tree (2* j +1) =-2 ; 
for l=i : 2* j -1 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [treel]=setright (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if (i>2* j +1) 

tree (2* j +1) =x ; 
else 

tree (2* j +1) =x ; 
tree (2* j +2) =-2 ; 
for l=i:2*j 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [x]=isleft (tree , tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 
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if (i>=2* j ) 

if ((tree (2*j) ~=- 1) | (tree (2*j) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 

function [x]=isright (tree , tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if ( i > = 2* j +1 ) 

if ((tree (2* j +1) ~=-l) | (tree (2* j +1) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 
funcprot (0) ; 

function []= inorder (tree ,p) 
if (tree (p) ==-l | tree (p)==-2) 
return ; 
else 
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inorder (tree ,2*p) ; 
printf ( ”%d\ t ” ,tree (p) ) ; 
inorder ( tree ,2*p+l) ; 
end 

endf unction 

function [] =preorder (tree ,p) 
if (tree ( p ) == — 1 | tree (p)==-2) 
return ; 
else 

printf (”%d\t” , tree (p) ) ; 
preorder (tree ,2*p) ; 
preorder (tree ,2*p+l) ; 
end 

endf unction 

function [] =postorder (tree ,p) 
if (tree (p) ==-l | tree (p)==-2) 
return ; 
else 

postorder (tree ,2*p) ; 
postorder (tree ,2*p+l) ; 
printf ( ” %d\ t ” , tree (p) ) ; 
end 

endf unction 

//Calling Routine: 

tree = maketree (3) ; 

tree = setleft (tree ,3 , 1) ; 

tree = setright (tree ,3,2) ; 

tree=setleft (tree ,2,4) ; 

tree=setright (tree ,2,5) ; 

d i s p ( ” Inorder traversal”) ; 

inorder (tree ,1) ; 

disp(” Preorder traversal”); 

preorder (tree ,1) ; 

disp(” Postorder traversal”); 

postorder (tree ,1) ; 
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Scilab code Exa 5.3 Implementing And traversing a Binary Search Tree 


funcprot (0) ; 

function [tree]=maketree (x) 
tree = zeros (1 ,30) ; 
for i =1 : 30 
tree ( i ) = — 1 ; 
end 

tree ( 1 ) =x ; 
tree (2) = -2 ; 
endf unction 

function [treel]=setleft (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if (i>2* j ) 

tree (2* j ) =x ; 
else 

tree (2* j ) =x ; 
tree (2* j +1) =-2 ; 
for l = i : 2* j -1 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [treel]=setright (tree , tre ,x) 
tree 1 = [] ; 

i = i ; 
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while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if (i>2* j +1) 

tree (2* j +1) =x ; 
else 

tree (2* j +1) =x ; 
tree (2* j +2) =-2 ; 
for l=i:2*j 
tree ( i ) =- 1 ; 
end 
end 

tree 1 = tree ; 
endf unction 

function [x]=isleft (tree , tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if (i>=2* j ) 

if ( (tree (2* j ) ~=-l) | (tree (2* j ) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 
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function [x]=isright (tree , tre) 

i = i ; 

x = 0 ; 

while (tree (i) ~=-2) 
if (tree (i)==tre) 

j = i ; 

end 

i=i+l ; 
end 

if ( i > = 2* j +1 ) 

if ((tree (2* j +1) ~ = -l) I (tree (2* j +1) ~=-2) ) 
x = l ; 

return 1 ; 
else 

return 0; 
end 
else 
x = 0 ; 

return x; 
end 

endf unction 
funcprot (0) ; 

function []= inorder (tree ,p) 
if (tree (p) ==-l | tree (p)==-2) 
return ; 
else 

inorder (tree ,2*p) ; 
disp (tree (p) , ” ” ) ; 

inorder (tree ,2*p+l) ; 
end 

endf unction 

function [] =preorder (tree ,p) 
if (tree (p) ==-l | tree (p)==-2) 
return ; 
else 

disp (tree (p) , ” ” ) ; 

preorder (tree ,2*p) ; 
preorder (tree ,2*p+l) ; 


74 


109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 


end 

endf unction 

function [] =postorder (tree ,p) 
if (tree ( p ) == — 1 | tree (p)==-2) 
return ; 
else 

postorder (tree ,2*p) ; 
postorder (tree ,2*p+l) ; 
disp (tree (p) , ” ” ) ; 

end 

endf unction 

function [treel]=binary(tree ,x) 
p = l ; 

while (tree (p) ~=-l&tree (p) ~=-2) 

q=p; 

if (tree (p) >x) 

P=2*p ; 
else 

p=2*p+l ; 
end 
end 

i = i ; 

while (tree (i) ~=-2) 
i=i+l ; 
end 

if (tree (q) >x) 
if ( i==2*q) 

tree (2*q) =x ; 
tree (2*q+l) =-2 
else 

if ( i <2* q) 

tree ( i ) = -1 ; 
tree (2*q+l) =-2 ; 
tree (2*q) =x ; 
end 
end 

else 
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if ( i = = 2* q + 1 ) 

tree (2*q+l) =x ; 
tree (2*q+2) =-2 ; 
else 

if ( i <2* q + 1 ) 
tree ( i ) = -1 ; 
tree (2*q+l) =x ; 
tree (2*q+2) =-2 ; 
end 
end 

end 

tree 1 = tree ; 
endf unction 
//Calling Routine: 
tree = maketree (3) ; 
tree = binary (tree ,1) ; 
tree = binary ( tree ,2) ; 
tree = binary ( tree ,4) ; 
tree = binary ( tree ,5) ; 

disp (tree Binary tree thus obtaine by inserting 
l,2,4and5 in tree rooted 3 is:”); 


Scilab code Exa 5.4 Checking the duplicate number using BST 

function [treel]=binary(tree ,x) 
p = l ; 

while (tree (p) ~=-l&tree (p) ~=-2) 

q=p; 

if (tree (p) >x) 

P = 2*p ; 
else 

p=2*p+l ; 
end 
end 
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if (tree (q) >x) 

if (tree (2*q) ==-2) 
tree (2*q) =x ; 
tree (2*q+l) =-2 ; 
else 

tree (2*q) =x ; 
end 
else 

if (tree (2*q+l) ==-2) 
tree (2*q+l) =x ; 
tree (2*q+2) =-2 ; 
else 

tree (2*q+l) =x ; 
end 
end 

tree 1 = tree ; 
endf unction 
funcprot (0) ; 

function [tree]=maketree (x) 
tree = zeros (40 , 1) ; 
for i =1 : 40 
tree ( i ) = — 1 ; 
end 

tree ( 1 ) =x ; 
tree (2) = -2 ; 
endf unction 

function []=duplicatel (a , n) 
tree = maketree ( a ( 1 ) ) ; 

q=i ; 

p = l ; 

i=2; 
x=a(i) 
while (i<n) 

while (tree (p) ~=x&tree (q) ~=-l&tree (q) ~=-2) 

p=q; 

if (tree (p) <x) 
q=2*p ; 
else 
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q=2*p+l ; 
end 
end 

if (tree (p) ==x) 

disp(x,” Duplicate ”); 
else 

tree=binary (tree ,x) ; 
end 

i=i+l ; 
x=a ( i ) ; 
end 

while (tree (p) ~=x&tree (q) ~=-l&tree (q) ~=-2) 

p=q; 

if (tree (p) <x) 
q=2*p ; 
else 

q=2*p+l ; 
end 
end 

if (tree (p) ==x) 

disp(x,” Duplicate ” ) ; 
else 

tree=binary (tree ,x) ; 
end 

endf unction 
/ / Calling Adress : 

a= [22 11 33 22 211 334] 
duplicatel (a , 6) 
a= [2 1 11 33 22 22 334] 
duplicatel (a , 6) 
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Chapter 6 
Sorting 


Scilab code Exa 6.1 Bubble Sort 

function [al]=bubble(a,n) 
i = l; 

j =i ; 

temp=0 ; 
for i=l : n-1 
for j =1 : n-i 

if ( a ( j ) >a( j+1) ) 
terap=a ( j ) ; 
a ( j ) =a( j +1) ; 
a ( j + 1 ) =t emp ; 
end 

j=j + i; 

end 

i=i+l ; 
end 
al = a ; 

disp ( al Sorted array is:”); 
endf unction 

//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a , ” Given Array”); 
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al = bubble (a , 7) 


Scilab code Exa 6.2 Quick Sort 

function [al]=quick(a) ; 

a = gsort(a);//IN BUILT QUICK SORT FUNCTION 
n= length ( a) ; 
al = [] ; 
for i=l : n 

al = [al ( : , : ) a(n+l-i) ] ; 
end 

disp ( al ,” Sorted array is:”); 
endf unction 
//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a Given Array”); 
al=quick (a) 


Scilab code Exa 6.3 Selection Sort 

function [al]=selection(a,n) 
i = n ; 

while (i >=1) 
large = a (1) ; 
indx = 1 ; 
for j =1 : i 

if (a ( j ) > large ) 
large=a ( j ) ; 
indx=j ; 
end 
end 

a ( indx ) =a ( i ) ; 
a ( i ) =large ; 
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i = i - 1 ; 

end 
al = a ; 

disp ( al ,” Sorted array is:”); 
endf unction 
//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a Given Array”); 
al=selection(a,7) 


Scilab code Exa 6.4 Insertion Sort 

function [al]=insertion(a,n) 
for k=l : n 
y=a (k) ; 
i = k ; 

while ( i > = 1 ) 
if (y <a ( i ) ) 

a ( i + 1 ) =a(i) ; 
a ( i ) =y ; 
end 

i=i-l ; 
end 
end 
al = a ; 

disp ( al ,” Sorted array is:”); 
endf unction 

//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a ,” Given Array”); 
al=insertion(a,7) 


Scilab code Exa 6.5 Shell sort 
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function [al]=shell (a , n , incr ,nic) 
for i=l : nic 

span = incr(i) ; 
for j = span + l : n 
y=a( j ) ; 
k = j - span ; 

while (k>=l&y<a(k) ) 
a (k+ span ) =a (k) ; 
k=k- span ; 
end 

a (k+ span ) =y ; 
end 
end 
al = a ; 

disp ( al ,” Sorted array is:”); 
endf unction 
//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a Given Array”); 
incr=[5 3 l]//must always end with 1 
al = shell (a, 7, incr ,3) 


Scilab code Exa 6.6 Merge Sort 

function [al] =mergesort (a , p , r ) 
if (p<r ) 

q=int ((p + r) /2) ; 
a=mergesort(a,p,q) ; 
a=mergesort (a , q+1 , r) ; 
a=raerge (a , p , q , r) ; 
else 
al = a ; 
return ; 
end 
al = a ; 
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endf unction 

function [al]=merge(a,p,q,r) 
nl=q-p+l ; 
n2=r-q ; 

lef t =zeros (nl +1 ) ; 
right=zeros (n2+l) ; 
for i=l : nl 

left(i)=a(p+i-l) ; 
end 

for i 1 =1 : n2 

right (il) =a (q+ i 1 ) ; 

end 

left (nl+1) =999999999 ; 
right (n2+l) =999999999; 
i = 1 ; 
j = i ; 

k=p ; 

for k=p : r 

if ( lef t ( i ) < = right ( j ) ) 
a (k) = lef t ( i ) ; 
i=i+l ; 
else 

a (k) =right ( j ) ; 

j=j+i; 

end 
end 
al = a ; 

endf unction 

//Calling Routine: 

a= [23 21 232 121 26324 1222433 14212] 

disp (a , ” Given Array”); 

al = mergesort (a, 1 ,7) 

disp (al Sorted array is:”); 

a= [232 11212 3443 23221 123424 32334 12212 2443 232] 
disp (a ,” Given Array”); 
al=mergesort(a,l,9) ; 
disp (al ,” Sorted Array”); 
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Scilab code Exa 6.7 Binary Tree Sort 

function [treel]=binary(tree ,x) 
p = l ; 

while (tree (p) ~=-l&tree (p) ~=-2) 

q=p; 

if (tree (p) >x) 

P=2*p ; 
else 

p=2*p+l ; 
end 
end 

if (tree (q) >x) 

tree (2*q) =x ; 

else 

tree (2*q+l) =x ; 

end 

tree 1 = tree ; 
endf unction 
funcprot (0) ; 

function [tree]=maketree (x) 
tree = zeros (100 , 1) ; 
for i=l : 100 
tree ( i ) = — 1 ; 
end 

tree ( 1 ) =x ; 
tree (2) = -2 ; 
endf unction 

function [] = inorder (tree , p) 
if (tree (p) ==-l | tree (p)==-2) 
return ; 
else 

inorder (tree ,2*p) ; 
printf ( ”%d\ t ” .tree (p) ) ; 


84 


33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


inorder ( tree ,2*p+l) ; 
end 

endf unction 

function [] = binsort (a,n) 
al=maketree (a(l) ) 
for i =2 : n 

al = binary(al , a ( i ) ) ; 
end 

disp (” Sorted array is:”); 
inorder ( al , 1 ) ; 
endf unction 

//Calling Routine: 

a= [23 21 232 121 2324 1222433 1212] 
disp (a , ” Given Array”); 
al=binsort (a , 7) 
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Chapter 7 
Searching 


Scilab code Exa 7.1 Sequential Search 
function [] = search(a,n,ele) 

i = i ; 

j =0 ; 

for i=l : n 

if (a(i)==ele) 

printf (” Found %d AT %d\n” , ele , i ) ; 

j=i; 

end 

end 

if ( j ==0 ) 

disp (”%d NOT FOUND” , ele) ; 
end 

endf unction 
//Calling Routine: 
a= [2 33 22 121 23 233 222] 
disp (a Given array”); 
search (a, 7, 23) 


Scilab code Exa 7.2 Sorted sequential search 
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function []=sortedsearch(a,n, ele) 
if (a(l) >ele | a(n) <ele) 

disp (’’NOT IN THE LIST”); 
else 

i = i ; 
j =0; 

for i=l : n 

if ( a ( i ) == ele ) 

printf (’’FOUND %d AT %d”,ele,i); 

j=i; 

else 

if (a(i)>ele) 
break ; 
end 
end 
end 

if ( j = = 0) 

disp (”%d NOT FOUND” , ele) ; 
end 
end 

endf unction 

//Calling Routine: 

a= [2 22 23 33 121 222 233] //a should be 
disp (a ,” Given array”); 
search (a, 7, 23) 


Scilab code Exa 7.3 Binary Search 

function []=binsearch(a,n,i) 

1 = 1 ; 
h = n ; 

while (l<=h) 

mid = int ( ( 1 + h) /2) ; 
if ( a (mid ) == i ) 

printf (’’FOUND %d AT %d”,i,mid); 


sorted 
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break ; 
else 

if (a (mid) >i ) 
h=mid - 1 ; 
else 


l=mid+l ; 
end 
end 
end 

endf unction 
//Calling Routine: 
a= [2 22 23 33 121 222 233] 
disp (a , ” Given array”); 
search (a, 7, 23) 


'a should be 
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Chapter 8 
Graphs 


Scilab code Exa 8.1 Simple Graph Functions 

//Simple Graph Functions 

function []=graph() ; 

i=i, j =i ; 

adj =zeros ( 10000) ; 
for i=l : n 
for j =1 : n 

adj ((i-l)*n+j)=temp; 
end 
end 

for i=l : n 
for j =1 : n 

if ((adj ( ( i — 1 ) *n+j ) ) ==1) 

printf (” Vertex %d is connected to vertex %d\ 
n” , i , j ) ; 

end 

end 

end 


endf unction 
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Scilab code Exa 8.2 Finding The Number Of Paths From One Vertex- 
ToOther 


//Finding The Number Of Paths From One Vertex To 
Another Of A Given Length 

function [b] =path (k , n , adj ,i,j) 
b = 0 ; 

if (k==l) 

b=adj ((i-l)*n+j) ; 
else 

for c=l : n 

if (adj ((i-l)*n+c)= = l) 

b = b + path(k-l , n , adj , c , j ) ; 
end 
end 
end 

printf (” Number of paths from vertex %d to %d of 
length %d are %d” , i , j , k , b ) ; 
return b; 
endf unction 
//Calling Routine: 
n = 3 ; 

adj = [0 1 1 0 0 1 0 0 0] 
b=path ( 1 , n , adj ,1,3) 


Scilab code Exa 8.3 Finding The Number Of Simple Paths From One 
Point 

//Finding The Number Of Simple Paths From One Point 
To Another In A Given Graph 
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funcprot (0) 

function [] = sim_path(n, adj , i , j ) ; 

1 = 0 ; 
m = 1 ; 

for m=l : n 

l = l + path(m,n,adj , i , j ) ; 
end 

printf (” There are %d simple paths from %d to %d 
in the given graph \n” , 1 , i , j ) ; 
endf unction 

function [b] =path (k , n , adj ,i,j) 
b = 0 ; 

if (k==l) 

b = adj ((i-l)*n+j) ; 
else 

for c=l : n 

if (adj ( ( i — 1 ) *n+c)= = l) 

b=b+path(k-l,n,adj , c , j ) ; 
end 
end 
end 

return b; 
endf unction 
n = 3 ; 

adj = [0 1 1 0 0 1 0 0 0] ; 
b=sim_path(n,adj ,1,3) 


Scilab code Exa 8.4 Finding Transitive Closure 

//Fin n ding Transitive Closure 

funcprot (0) 

function [path] =Tr an close (adj ,n) ; 

i=i , j =i ; 

path = zeros (n*n , 1) ; 
path=tranclose(adj ,n) ; 
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pr intf (” Trans it ive Closure Of Given Graph is:\n”); 
for i=l : n 

printf (’’For Vertex %d\n”,i); 
for j =1 : n 

printf (” %d %d is %d\n” , i , j , path ( ( i - 1 ) *n + j ) ) ; 
end 
end 

endf unction 

function [path] =tranclose (adj ,n) 
adj prod = zeros (n*n , 1) ; 
k = 1 ; 

newprod = zeros (n*n , 1) ; 
for i=l : n 
for j = 1 : n 

path((i-l)*n+j)=adj ((i-l)*n+j) ; 
adjprod((i-l)*n+j)= path((i-l)*n+j) ; 
end 
end 

for i=l : n 

newprod=prodl (adjprod , adj , n) ; 
for j =1 : n 
for k= 1 : n 

path ( ( j -1) *n+k)=path((j -1) *n + k) | newprod((j 
-1) * n +k) ; 

end 

end 

for j =1 : n 
for k= 1 : n 

adjprod((j-l)*n+k)=newprod((j-l)*n+k); 

end 

end 

end 

endf unction 

function [c]=prodl (a,b,n) 
for i=l : n 
for j =1 : n 
val =0 
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for k= 1 : n 

val=val | (a((i-l)*n+k)&b((k-l)*n+j)) ; 
end 

c ( ( i — 1 ) *n + j)=val ; 
end 
end 

endf unction 

//Calling Routine: 

n = 3 ; 

adj = [0 1 0 0 0 1 0 0 0] 
path=Tranclose (adj ,n) 


Scilab code Exa 8.5 Warshalls Algorithm 

//Warshall ’ s Algorithm 

funcprot (0) 

function [path]=transclose (adj ,n) 
for i = 1 : n 
for j =1 : n 

path((i-l)*n+j)=adj ((i-l)*n+j) ; 
end 
end 

for k=l : n 
for i=l : n 

if (path ( ( i - 1 ) *n+k) ==1) 
for j =1 : n 

path((i-l)*n+j)=path((i-l)*n+j) |path((k-l) 
*n + j ) ; 

end 

end 

end 

end 

pr intf ( ,: Tr ans it i ve closure for the given graph is 

:\n”); 

for i = 1 : n 
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printf(”For vertex %d \n”,i); 
for j =1 : n 

printf (”%d %d is %d\n” , i , j , path ( (i-1) *n + j ) ) ; 

end 

end 

endf unction 

//Calling Routine: 

n = 3 ; 

adj = [0 1 0 0 0 1 0 0 0] 
path=Tranclose (adj ,n) 


Scilab code Exa 8.6 Depth First Search Traversal 

//Depth First Search Traversal 

funcprot (0) 

function [] =Df s (adj , n) ; 

i = i, j = 1 ; 

colour = [] ; 
for i=l : n 
for j =1 : n 

colour =[ colour ) 0] ; 

end 
end 

disp(”The DFS traversal is”); 
dfs(adj , colour , 1 , n) ; 
endf unction 

function [] =df s (adj , colour ,r ,n) 
colour (r) =1 ; 
disp (r , ” ”); 

for i=l : n 

if (adj ((r-l)*n+i)&(colour(i)==0)) 
df s ( adj , colour , i ,n) ; 
end 
end 

colour (r ) =2 ; 
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endf unction 

//Calling Routine: 

n=4 ; 

adj = [0 1 1 0 0 0 0 1 0 0 0 1 0 0 0 0] 
Df s ( adj , n) 


Scilab code Exa 8.7 BFS Traversal 

////BFS Traversal 

funcprot (0) 

function [q2]=push(ele ,ql) 
if (ql . rear==ql . front) 
ql . a=ele ; 

ql . rear=ql . rear+1; 
else 

ql . a= [ql . a ( : , : ) ele] ; 
ql . rear=ql . rear+1 ; 
end 

q2=ql ; 
endf unction 

function [ele ,q2]=pop(ql) 
ele=-l ; 
q2 = 0 ; 

if (ql . rear==ql . front) 
return ; 

else 

ele=ql . a(ql . rear-ql . front) ; 
ql . front = ql . front + 1; 

i = l ; 

a=ql . a(l) ; 

for i =2 : ( ql . rear -ql . f ront ) 
a= [a ( : , : ) ql . a(i) ] ; 
end 

ql . a=a ; 
end 
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q2=ql ; 
endf unction 

function [] =Bf s (adj , n) ; 

i=i, j=i; 

colour = [] ; 
for i=l : n 
for j =1 : n 

colour =[ colour ) 0]; 

end 
end 

disp (” The BFS Traversal is”); 
bfs(adj , colour , 1 , n) ; 
endf unction 

function [] =bf s (adj .colour ,s,n) 
colour (s) =1 ; 

q=struct( ’rear ’ ,0, ’front ’ ,0, ’a’ ,0) ; 
q=push (s , q) ; 

while ( ( q . rear) - (q . front) >0) 

[u , q] =pop (q) ; 
disp(u.” ”) ; 
for i=l : n 

if (adj ((u-1) *n+i)&(colour(i)==0) ) 
colour ( i ) =1 ; 
q=push (i , q) ; 
end 
end 

colour (u) =2 ; 
end 

endf unction 

//Calling Routine: 

n=4 ; 

adj = [0 1 1 0 0 0 0 1 0 0 0 1 0 0 0 0] 

Bf s ( adj , n) 
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Scilab code Exa 8.8 Dijkstras Algorithm 

//Dijkstras Algorithm 

funcprot (0) 

function [l]=short (adj , w , il , j 1 ,n) 
for i=l : n 
for j =1 : n 

if (w((i-l) *n+j)==0) 
w ( ( i -1 ) *n + j ) =9999; 
end 
end 
end 

distance = [] ; 
perm = [] ; 
for i=l : n 

distance=[distance(: , :) 99999] ; 
perm= [perm ( : , : ) 0] ; 

end 

perm ( i 1 ) =1 ; 
distance ( il ) =0 ; 
current = i 1 ; 
while(current~=jl) 
smalldist=9999; 
dc=di stance ( current ) ; 
for i = 1 : n 

if ( perm ( i ) ==0) 

newdist = dc + w(( current -l)*n+i) ; 
if (newdist<distance(i)) 
distance (i)=newdist ; 
end 

if (distance (i) <smalldist) 
smalldi st =di st ance ( i ) ; 
k=i ; 
end 
end 
end 

current =k ; 
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37 perm ( current )= 1 ; 

38 end 

39 l = distance(jl); 

40 printf(”The shortest path between %d and %d is %d 

” > i 1 > j 1 > 1 ) ; 

41 endfunction 

42 //Calling Routine: 

43 n = 3 ; 

44 adj = [0 1 1 0 0 1 0 0 0] // Adj acency List 

45 w= [0 12 22 0 0 9 0 0 0] //weight list fill 0 for no 

edge 

46 short ( adj , w , 1 , 3 , n) ; 
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